home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 9 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  829b  |  35 lines
  1. 10 rem masken-demo
  2. 20 :
  3. 30 sys32168
  4. 35 poke 650,128 :rem alle tasten repeat-funktion
  5. 40 :
  6. 50 (NULL)1,5,0,22,39,1,0,"maske" :(NULL)1,6,128
  7. 60 (NULL)2,2,0,24,39,1,0,"ergebnis" :(NULL)2,5,128
  8. 70 dim a$(40)
  9. 80 :
  10. 90 (NULL) 2,2,5,"soll die maskendefinition 'von hand'"
  11. 100 (NULL) 4,2,"mit wedit oder vom programm aus mit"
  12. 110 (NULL) 6,2,"wprint erfolgen ?"
  13. 120 (NULL) 8,2,"(h=hand, p=programm) ",,"hp",1,hp$
  14. 130 :
  15. 140 if hp$="h" then (NULL) 24,1,"ende mit 'f3' !" :(NULL)1 :(NULL) :goto 190
  16. 150 (NULL)1
  17. 160 for i=1 to 4
  18. 170 (NULL) i*2-1,1,6,"feld"i; :(NULL) 12 :kn=29 :if i=4 then kn=220
  19. 175 for k=1 to kn :print chr$(164); :next :rem chr$(164)=strich-zeichen
  20. 180 next
  21. 190 :
  22. 200 (NULL)
  23. 210 n=(NULL)(0) :(NULL)0:(NULL) 0,1,str$(n)+" felder !" :(NULL)1
  24. 220 (NULL)
  25. 230 for i=1 to n :(NULL) a$(i) :next
  26. 240 (NULL)2 :(NULL) 5 :printchr$(147)
  27. 250 (NULL) 1,1,"ihre eingaben in feld..." :print
  28. 260 for i=1 to n
  29. 270 (NULL) 5 :print i": "; :(NULL) 15 :print a$(i)
  30. 280 next
  31. 290 (NULL) chr$(95),1 :rem chr$(95)=pfeil nach links
  32. 300 (NULL)
  33. 310 (NULL)
  34. 320 goto 220
  35.